unit UCtrlPais;

interface

    uses
        db, UController, UDaoPais;
    type
        CtrlPais = class (Controller)

protected
    umaDaoPais : DaoPais;
public
    constructor Create;
    destructor Destroy;
    function Salvar (obj : TObject) : string;     override;
    function getDs : TDataSource;                 override;
    function Carrega (obj : Tobject) : Tobject ;  override;
    function Excluir (obj : Tobject) : String ;   override;
    function Buscar (chave : string) : boolean ;  override;
    function Editar (obj: Tobject)   : string;    override;
    function existe(dado:string):Boolean;         override;
end;

implementation

{ CtrlPais }

function CtrlPais.Buscar(chave: string): boolean;
begin
   Result := umaDaoPais.Buscar(chave);
end;

function CtrlPais.Carrega(obj: Tobject): Tobject;
begin
   Result := umaDaoPais.Carrega(obj);
end;

constructor CtrlPais.Create;
begin
    inherited;
    umaDaoPais := daoPais.Create;
end;

destructor CtrlPais.Destroy;
begin
    inherited;
    umaDaoPais.Destroy;
end;

function CtrlPais.Editar(obj: Tobject): string;
begin
    Result := umaDaoPais.editar(obj);
end;

function CtrlPais.Excluir(obj: Tobject): String;
begin
    Result := umaDaoPais.Excluir(obj);
end;

function CtrlPais.existe(dado: string): Boolean;
begin

end;

function CtrlPais.getDs: TDataSource;
begin
   Result := umaDaoPais.GetDS;
end;

function CtrlPais.Salvar(obj: TObject): string;
begin
   Result := umaDaoPais.salvar(obj);
end;

end.

